0 PRINT"[147]"
1 DIMSU$(500),TA$(500),AN$(500),MN$(500),ID$(500),CM$(500):P$=",":OPEN15,8,15
2 GOTO100
10 PRINT"[147]":PRINTTAB(12);"ONE MOMENT READING":PRINT:PRINTTAB(20-LEN(Z$)/2);Z$
15 OPEN5,8,5,"0:"+Z$+",S,R":INPUT#15,AX,BX$,CX,DX$:IFAX<>0THENGOSUB9000:RETURN
18 FORI=1TO500:C=I
20 INPUT#5,SU$(I),TA$(I),AN$(I),MN$(I),ID$(I),CM$(I)
30 IFSU$(I)="EOF"THENCLOSE5:C=C-1:RETURN
40 NEXT
50 PRINT:PRINT"40 CHARACTERS MAXIMUM":FORI=1TO4000:NEXT:PRINT"[147]":RETURN
60 PRINT:PRINT"80 CHARACTER MAXIMUM":FORI=1TO4000:NEXT:PRINT"[147]":RETURN
80 OPEN5,8,5,"@0:"+Z$+",S,W":FORI=1TOC
82 PRINT#5,SU$(I):PRINT#5,TA$(I):PRINT#5,AN$(I):PRINT#5,MN$(I):PRINT#5,ID$(I)
83 PRINT#5,CM$(I):NEXT:I=C+1
84 SU$(I)="EOF":TA$(I)="TITLE":AN$(I)="AUTHOR":MN$(I)="MAG":ID$(I)="ISSUE"
86 CM$(I)="COMMENT":PRINT#5,SU$(I):PRINT#5,TA$(I):PRINT#5,AN$(I):PRINT#5,MN$(I)
87 PRINT#5,ID$(I):PRINT#5,CM$(I)
88 CLOSE5:RETURN
100 PRINT"[147]":POKE53280,6:POKE53281,0:FORI=1TO40:PRINT"[211][211]";:NEXT:PRINT"[211][211]";
110 PRINT" [176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174][146] ";
120 PRINT "[211][211]";:PRINT"[211][211] [194][146]================================[194][146] [211][211]";
130 PRINT"[211][211] [194][146]===== ***AHOY DOCK FILE*** [146]=====[194][146] [211][211]";
140 PRINT"[211][211] [194][146]=====                      [146]=====[194][146] [211][211]";
150 PRINT"[211][211] [194][146]=====   ADD    -/- RECORD  [146]=====[194][146] [211][211]";
160 PRINT"[211][211] [194][146]=====   SEARCH -/- RECORD  [146]=====[194][146] [211][211]";
170 PRINT"[211][211] [194][146]=====   DELETE -/- RECORD  [146]=====[194][146] [211][211]";
180 PRINT"[211][211] [194][146]=====   MODIFY -/- RECORD  [146]=====[194][146] [211][211]";
190 PRINT"[211][211] [194][146]=====   SORT   -/- RECORD  [146]=====[194][146] [211][211]";
200 PRINT"[211][211] [194][146]=====   LIST   -/- RECORD  [146]=====[194][146] [211][211]";
210 PRINT"[211][211] [194][146]=====   PRINT  -/- RECORD  [146]=====[194][146] [211][211]";
215 PRINT"[211][211] [194][146]=====                      [146]=====[194][146] [211][211]";
220 PRINT"[211][211] [194][146]================================[194][146] [211][211]";
230 PRINT"[211][211] [171][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][179][146] [211][211]";
240 PRINT"[211][211] [194][146]";:PRINTCHR$(159);:PRINT" F1...ADD    ";:PRINTCHR$(5);
250 PRINT"======";:PRINTCHR$(159);:PRINT" F2...SEARCH ";:PRINTCHR$(31);:
260 PRINT"[194][146] [211][211]";:PRINT"[211][211] [194][146]";:PRINTCHR$(159);:PRINT" F3...DELETE ";
270 PRINTCHR$(5);:PRINT"======";:PRINTCHR$(159);:PRINT" F4...MODIFY ";
280 PRINTCHR$(31);:PRINT"[194][146] [211][211]";:PRINT"[211][211] [194][146]";:PRINTCHR$(159);
290 PRINT" F5...SORT   ";:PRINTCHR$(5);:PRINT"======";:
300 PRINTCHR$(159);:PRINT" F6...LIST   ";:PRINTCHR$(31);:PRINT"[194][146] [211][211]";
310 PRINT"[211][211] [194][146]";:PRINTCHR$(159);:PRINT" F7...PRINT  ";:PRINTCHR$(5);:
320 PRINT"======";:PRINTCHR$(159);:PRINT" F8...END    ";:PRINTCHR$(31);:
330 PRINT"[194][146] [211][211]";:PRINT"[211][211] [173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][146]";
340 PRINT" [211][211]";:FORI=1TO40:PRINT"[211]";:PRINT"[211]";:NEXT
350 GETRE$:IFRE$=""THEN350
360 IFRE$=CHR$(140)THEN680
400 FORI=133TO140:IFRE$=CHR$(I)THEN520
410 NEXT
420 PRINT"[147]":POKE53281,0:POKE53280,0:PRINT"":PRINTTAB(12);"INVALID RESPONSE"
430 PRINT:PRINTTAB(7);"PLEASE PRESS FUNCTION KEY":RE$="":FORI=1TO4000:NEXT
440 GOTO100
450 DATA+++++++++++++++++++++++,+...SELECTION MENU....+,+                     +
460 DATA + 1--BUSINESS         +,+ 2--DISK OPERATION   +,+ 3--EDUCATIONAL      +
470 DATA + 4--FUN AND GAMES    +,+ 5--GRAPHICS         +,+ 6--HARDWARE         +
480 DATA + 7--HOME USE         +,+ 8--LANGUAGES-MLX    +,+ 9--MISCELLANEOUS    +
490 DATA + 10-MUSICAL          +,+ 11-SIMULATIONS      +,+ 12-SOFTWARE         +
500 DATA + 13-TUTORIAL         +,+ 14-UTILITIES        +,+                     +
510 DATA+....PLEASE SELECT....+,+++++++++++++++++++++++
520 PRINT"[147]":PRINT:POKE53280,7:POKE53281,1:PRINT"[144]":FORI=1TO20:READM$
530 PRINTTAB(9);M$:NEXT:RESTORE:INPUT"";SE$:SE=VAL(SE$)
532 IFSE$="/"THEN440
535 IFSE<1ORSE>14THEN520
540 IFSE$="1"THENZ$="BUSINESS"
550 IFSE$="2"THENZ$="DISK OPERATION"
560 IFSE$="3"THENZ$="EDUCATIONAL"
570 IFSE$="4"THENZ$="FUN & GAMES"
580 IFSE$="5"THENZ$="GRAPHICS"
590 IFSE$="6"THENZ$="HARDWARE"
600 IFSE$="7"THENZ$="HOME USE"
610 IFSE$="8"THENZ$="LANGUAGES-MLX"
620 IFSE$="9"THENZ$="MISCELLANEOUS"
630 IFSE$="10"THENZ$="MUSICAL"
640 IFSE$="11"THENZ$="SIMULATIONS"
650 IFSE$="12"THENZ$="SOFTWARE"
660 IFSE$="13"THENZ$="TUTORIAL"
670 IFSE$="14"THENZ$="UTILITIES"
680 RE=ASC(RE$):ON(RE-132)GOSUB1000,2000,3000,4000,5000,6000,7000,8000
690 Z$="XX":DE$="":DE=.:K1=.:GOTO100
700 REM**********************************
710 REM* WRITTEN BY GLENN LUMPKINS
720 REM* FEB. 1985
730 REM**********************************
999 REM=====ADD ROUTINE=====
1000 PRINT"[147]":GOSUB10:PRINT"[147]":C=C+1
1010 IFK=1THENK=0:RETURN
1020 PRINTTAB(8);": SUBJECT  OF  ARTICLE :[146]":PRINT"";:INPUTSU$(C)
1025 IFSU$(C)="/"THENRETURN
1030 IFLEN(SU$(C))>79THENGOSUB60:PRINT: GOTO1020
1040 PRINT"[144]":PRINTTAB(8);": TITLE    OF  ARTICLE :[146]":PRINT"";:INPUTTA$(C)
1045 IFTA$(C)="/"THEN1020
1050 IFLEN(TA$(C))>39THENGOSUB50:PRINT:GOTO1040
1060 PRINT"[144]":PRINTTAB(8);": AUTHOR'S        NAME :[146]":PRINT"";:INPUTAN$(C)
1065 IFAN$(C)="/"THEN1040
1070 IFLEN(AN$(C))>39THEN(null)SUSB50:PRINT:GOTO1060
1080 PRINT"[144]":PRINTTAB(8);":[160]NAME     OF MAGAZINE :[146]":PRINT"";:INPUTMN$(C)
1085 IFMN$(C)="/"THEN1060
1090 IFLEN(MN$(C))>39THENGOSUB50:PRINT:GOTO1080
1100 PRINT"[144]":PRINTTAB(8);":ISSUE # / PAGE / DATE :[146]":PRINT"";:INPUTID$(C)
1105 IFID$(C)="/"THEN1080
1110 IFLEN(ID$(C))>39THEN(null)SUSB50:PRINT:GOTO1100
1120 PRINT"[144]":PRINTTAB(8);": COMMENTS  OR   NOTES :[146]":PRINT"";:INPUTCM$(C)
1130 IFLEN(CM$(C))>79 THENGOSUB60:PRINT:GOTO1120
1135 IFCM$(C)="/"THEN1100
1140 PRINT"[144]":PRINTTAB(5);"->PRESS ANY KEY TO CONTINUE<-"
1150 GETDE$:IFDE$=""THEN1150
1160 PRINT"[147]":PRINTTAB(20-LEN(Z$)/2);Z$:PRINT
1170 PRINTTAB(5);"[C][146]ONTINUE OR [W][146]RITE TO DISK"
1180 GETDE$:IFDE$=""THEN1180
1185 IFDE$="/"THENRETURN
1190 IFDE$<>"C"ANDDE$<>"W"THEN1180
1200 IFDE$="C"THENPRINT"[147]":C=C+1:GOTO1020
1205 PRINT:PRINTTAB(15);"WRITING TO":PRINT:PRINTTAB(20-LEN(Z$)/2);Z$
1210 GOSUB80:RETURN
1999 REM====DELETE ROUTINE=======
2000 PRINT"[147]":PRINT:PRINT:PRINT
2005 PRINT"  DELETE [E][146]NTIRE FILE OR [O][146]NE RECORD"
2010 GETDE$:IFDE$=""THEN2010
2015 IFDE$="/"THENRETURN
2020 IFDE$<>"E"ANDDE$<>"O"THEN2000
2030 IFDE$="E"THENGOSUB9200:RETURN
2040 FL=1:GOSUB7000:FL=.:RETURN
2999 REM=====SORT PART1======
3000 GOSUB10:PRINT"[147]":FORI=1TO5:PRINT:NEXT:PRINTTAB(15);"SORT BY":PRINT
3010 F1=1:GOSUB5010:IFDE$="/"THENRETURN
3020 IFDE$="S"THENK1=1:GOSUB9300:GOTO3070
3030 IFDE$="T"THENK1=2:GOSUB9300:GOTO3070
3040 IFDE$="A"THENK1=3:GOSUB9300:GOTO3070
3050 IFDE$="M"THENK1=4:GOSUB9300:GOTO3070
3060 IFDE$="I"THENK1=5:GOSUB9300:GOTO3070
3070 K1=.:PRINT"[147]":PRINTTAB(8);"ONE MOMENT WRITING SORTED":PRINT
3080 PRINTTAB(20-LEN(Z$)/2);Z$
3090 GOSUB80:RETURN
3999 REM=====PRINT RECORD/FILE=====
4000 PRINT"[147]":PRINTTAB(8);"[E][146]NTIRE OR [O][146]NE RECORD"
4010 GETDE$:IFDE$=""THEN4010
4020 IFDE$="/"THENRETURN
4030 IFDE$<>"E"ANDDE$<>"O"THEN4010
4040 IFDE$="O"THENK2=1:GOSUB7000:IFK2=.THENRETURN
4050 IFDE$="E"THENGOSUB10:GOTO4200
4060 OPEN3,4:XX$="[212]=================[217]":PRINT#3,Z$;" RECORD NUMBER";I:PRINT#3
4070 PRINT#3:PRINT#3,XX$:PRINT#3,TAB(3);"S U B J E C T":PRINT#3
4080 PRINT#3,SU$(I):PRINT#3:PRINT#3,XX$:PRINT#3,TAB(5);"T I T L E":PRINT#3
4090 PRINT#3,TA$(I):PRINT#3:PRINT#3,XX$:PRINT#3,TAB(4);"A U T H O R":PRINT#3
4100 PRINT#3,AN$(I):PRINT#3:PRINT#3,XX$:PRINT#3,TAB(2);"M A G A Z I N E"
4110 PRINT#3:PRINT#3,MN$(I):PRINT#3:PRINT#3,XX$:PRINT#3,TAB(5);"I S S U E"
4120 PRINT#3:PRINT#3,ID$(I):PRINT#3:PRINT#3,XX$:PRINT#3,TAB(3);"C O M M E N T"
4130 PRINT#3:PRINT#3,CM$(I):CLOSE3:RETURN
4199 REM=====PRINT ENTIRE RECORD=====
4200 PRINT"[147]":PRINTTAB(14);"NOW PRINTING":PRINT:PRINTTAB(20-LEN(Z$)/2);Z$
4210 XX$="[212]=================[217]":OPEN3,4:PRINT:PRINT"RECORD NUMBER"
4230 PRINT#3,Z$;" FILE":PRINT#3
4240 FORI=1TOC:PRINTI:PRINT#3:PRINT#3,"==>RECORD NUMBER";I;" <==":PRINT#3
4250 PRINT#3,XX$:PRINT#3,TAB(3);"S U B J E C T":PRINT#3:PRINT#3,SU$(I):PRINT#3
4260 PRINT#3,XX$:PRINT#3,TAB(5);"T I T L E":PRINT#3:PRINT#3,TA$(I):PRINT#3
4270 PRINT#3,XX$:PRINT#3,TAB(4);"A U T H O R":PRINT#3:PRINT#3,AN$(I):PRINT#3
4280 PRINT#3,XX$:PRINT#3,TAB(2);"M A G A Z I N E":PRINT#3:PRINT#3,MN$(I)
4290 PRINT#3:PRINT#3,XX$:PRINT#3,TAB(5);"I S S U E":PRINT#3:PRINT#3,ID$(I)
4300 PRINT#3:PRINT#3,XX$:PRINT#3,TAB(3);"C O M M E N T":PRINT#3:PRINT#3,CM$(I)
4310 PRINT#3:NEXT:CLOSE3:RETURN
4999 REM=====SEARCH ROUTINE=====
5000 PRINT"[147]":FORI=1TO5:PRINT:NEXT:PRINTTAB(15);"SEARCH BY":PRINT
5010 PRINT:PRINTTAB(15);"[S][146]UBJECT":PRINT:PRINTTAB(15);"[T][146]ITLE":PRINT
5020 PRINTTAB(15);"[A][146]UTHOR":PRINT:PRINTTAB(15);"[M][146]AGAZINE":PRINT
5030 PRINTTAB(15);"[I][146]SSUE
5040 [161]DE$:[139]DE$[178]""[167]5040
5045 [139]DE$[178]"/"[167][142]
5050 [139]DE$[179][177]"S"[175]DE$[179][177]"T"[175]DE$[179][177]"A"[175]DE$[179][177]"M"[175]DE$[179][177]"I"[167]5000
5055 [139]F1[178]1[167]F1[178].:[142]
5060 [139]DE$[178]"S"[167][153]"LOAD":[129]I[178]1[164]4:[153]:[130]:[137]5090
5070 [139]DE$[178]"T"[167][153]"LOAD":[129]I[178]1[164]4:[153]:[130]:[137]5110
5075 [139]DE$[178]"A"[167][153]"LOAD":[129]I[178]1[164]4:[153]:[130]:[137]5130
5080 [139]DE$[178]"M"[167][153]"LOAD":[129]I[178]1[164]4:[153]:[130]:[137]5150
5085 [139]DE$[178]"I"[167][153]"LOAD":[129]I[178]1[164]4:[153]:[130]:[137]5170
5090 [153]"LOAD":[153][163]13);"ENTER ";:[153]"";:[153]"[SUBJECT]":[153]"STOP"
5100 [133]S$:[141]10:[137]5300
5110 [153]"LOAD":[153][163]13);"ENTER ";:[153]"";:[153]"[TITLE]":[153]"STOP"
5120 [133]T$:[141]10:[137]5300
5130 [153]"LOAD":[153][163]13);"ENTER ";:[153]"";:[153]"[AUTHOR]":[153]"STOP"
5140 [133]A$:[141]10:[137]5300
5150 [153]"LOAD":[153][163]12);"ENTER ";:[153]"";:[153]"[MAGAZINE]":[153]"STOP"
5160 [133]M$:[141]10:[137]5300
5170 [153]"LOAD":[153][163]13);"ENTER ";:[153]"";:[153]"[ISSUE]":[153]"STOP"
5180 [133]I$:[141]10:[137]5300
5300 [153]"LOAD":[153]" #";[163]10);"ONE MOMENT SEARCHING":[153][163]20[171][195](Z$)[173]2);Z$
5310 [129]I[178]1[164]C
5320 [139]DE$[178]"S"[175][200](S$,[195](S$))[178][200](SU$(I),[195](S$))[167][153]I;SU$(I):K[178]K[170]1
5330 [139]DE$[178]"T"[175][200](T$,[195](T$))[178][200](TA$(I),[195](T$))[167][153]I;TA$(I):K[178]K[170]1
5340 [139]DE$[178]"I"[175][200](I$,[195](I$))[178][200](ID$(I),[195](I$))[167][153]I;ID$(I):K[178]K[170]1
5350 [139]DE$[178]"M"[175][200](M$,[195](M$))[178][200](MN$(I),[195](M$))[167][153]I;MN$(I):K[178]K[170]1
5360 [139]DE$[178]"A"[175][200](A$,[195](A$))[178][200](AN$(I),[195](A$))[167][153]I;AN$(I):K[178]K[170]1
5370 [139]K[178]15[167]K[178]0:[153]:[153][163]4);"CORRECT RECORD FOUND [Y]WAIT OR [N]WAIT":Y[178]1
5380 [139]Y[178]1[167][161]RE$:[139]RE$[178]""[167]5380
5385 [139]RE$[178]"/"[167][142]
5390 [139]Y[178]1[175]RE$[179][177]"N"[175]RE$[179][177]"Y"[167]5380
5400 [139]RE$[178]"N"[167][153]"LOAD":Y[178].:RE$[178]"":[130]:[137]5440
5410 [139]RE$[178]"Y"[167]Y[178].:[137]5500
5415 [139]C[178]I[175]K[178][177]1[167]K[178]15:[137]5370
5420 [130]:[153]
5430 [153][163]11);"RECORD NOT FOUND":[153]
5440 [153][163]10)"[A]WAITBORT OR [R]WAITETRY
5450 GETDE$:IFDE$=""THEN5450
5460 IFDE$="/"ORDE$="A"THENRETURN
5470 IFDE$="R"THENDE$="":GOTO5000
5480 IFDE$<>"A"ANDDE$<>"R"THEN5450
5500 PRINT:PRINTTAB(13);"SELECT RECORD":PRINT"";:INPUTRN:IFRN>CTHEN5500
5510 PRINT"[144]":PRINT"[147]":I=RN:FA=1:GOTO7010
5999 REM====MODIFY RECORD======
6000 F4=1:GOSUB7000
6010 PRINTTAB(7);"[144]";"[1. SUBJECT OF ARTICLE ][146]":PRINT"";SU$(I):PRINT
6020 PRINTTAB(7);"[144]";"[2. TITLE OF ARTICLE   ][146]":PRINT"";TA$(I):PRINT
6030 PRINTTAB(7);"[144]";"[3. AUTHOR'S NAME      ][146]":PRINT"";AN$(I):PRINT
6040 PRINTTAB(7);"[144]";"[4. NAME OF MAGAZINE   ][146]":PRINT"";MN$(I):PRINT
6050 PRINTTAB(7);"[144]";"[5. ISSUE #/PAGE/DATE  ][146]":PRINT"";ID$(I):PRINT
6060 PRINTTAB(7);"[144]";"[6. COMMENT OR NOTE    ][146]":PRINT"";CM$(I):PRINT
6070 PRINTTAB(7);"[144]";"[7. WRITE TO DISK      ][146]":PRINT
6080 PRINTTAB(7);"===>CHANGE WHICH LINE<=="
6090 GETDE$:IFDE$=""THEN6090
6100 DE=VAL(DE$):IFDE$="/"THENRETURN
6110 IFDE<1ORDE>7THEN6090
6120 IFDE=7THENGOSUB80:RETURN
6130 IFDE=1THENPRINT"[147]":PRINTTAB(5);": SUBJECT OF ARTICLE :[146]":PRINT:PRINT"";
6140 IFDE=1THENPRINTSU$(I):PRINT:PRINT"ENTER NEW VALUE":PRINT:INPUTSU$(I)
6150 IFLEN(SU$(I))>79THENGOSUB60:PRINT:GOTO6130
6155 IFSU$(I)="/"THENRETURN
6160 IFDE=2THENPRINT"[147]":PRINTTAB(5);": TITLE OF ARTICLE :[146]":PRINT:PRINT"";
6170 IFDE=2THENPRINTTA$(I):PRINT:PRINT"ENTER NEW VALUE":PRINT:INPUTTA$(I)
6180 IFLEN(TA$(I))>39THENGOSUB50:PRINT:GOTO6160
6185 IFTA$(I)="/"THENRETURN
6190 IFDE=3THENPRINT"[147]":PRINTTAB(5);": AUTHOR'S NAME :[146]":PRINT:PRINT"";
6200 IFDE=3THENPRINTAN$(I):PRINT:PRINT"ENTER NEW VALUE":PRINT:INPUTAN$(I)
6210 IFLEN(AN$(I))>39THENGOSUB50:PRINT:GOTO6190
6215 IFAN$(I)="/"THENRETURN
6220 IFDE=4THENPRINT"[147]":PRINTTAB(5);": NAME OF MAGAZIZNE :[146]":PRINT:PRINT"";
6230 IFDE=4THENPRINTMN$(I):PRINT:PRINT"ENTER NEW VALUE":PRINT:INPUTMN$(I)
6240 IFLEN(MN$(I))>39THENGOSUB50:PRINT:GOTO6220
6245 IFMN$(I)="/"THENRETURN
6250 IFDE=5THENPRINT"[147]":PRINTTAB(5);": ISSUE / PAGE / DATE :[146]":PRINT:PRINT"";
6260 IFDE=5THENPRINTID$(I):PRINT:PRINT"ENTER NEW VALUE":PRINT:INPUTID$(I)
6270 IFLEN(ID$(I))>39THENGOSUB50:PRINT:GOTO6250
6275 IFID$(I)="/"THENRETURN
6280 IFDE=6THENPRINT"[147]":PRINTTAB(5);": COMMENTS OR NOTES :":PRINT:PRINT"";
6290 IFDE=6THENPRINTCM$(I):PRINT:PRINT"ENTER NEW VALUE":PRINT:INPUTCM$(I)
6300 IFLEN(CM$(I))>70THENGOSUB60:PRINT,GOTO6280
6305 IFCM$(I)="/"THENRETURN
6310 PRINT"[147]":GOTO6010
6999 REM====LIST + DELETE ROUTINE =======
7000 PRINT"[147]":GOSUB10:PRINT"[147]":FORI=1TOC:PRINT:PRINT
7010 PRINTTAB(9);"[:SUBJECT OF ARTICLE:][146]":PRINT"";SU$(I):PRINT
7020 PRINTTAB(9);"[144][:TITLE OF ARTICLE  :][146]":PRINT"";TA$(I):PRINT
7030 PRINTTAB(9);"[144][:AUTHOR'S NAME     :][146]":PRINT"";AN$(I):PRINT
7040 PRINTTAB(9);"[144][:NAME OF MAGAZINE  :][146]":PRINT"";MN$(I):PRINT
7050 PRINTTAB(9);"[144][:ISSUE #/PAGE/DATE :][146]":PRINT"";ID$(I):PRINT
7060 PRINTTAB(9);"[144][:COMMENT OR NOTES  :][146]":PRINT"";CM$(I):PRINT
7065 IFFA=1THENPRINT:PRINT"[144]";TAB(8);"PRESS ANY KEY TO CONTINUE"
7070 IFFA=1THENGETDE$:IFDE$=""THEN7070
7075 IFDE$="/"THENRETURN
7080 IFFA=1THENFA=.:RETURN
7090 IFFL=1THENPRINT"[144]";TAB(5);"DELETE THIS RECORD [Y][146] OR [N][146]"
7100 IFFL=1THENGETDE$:IFDE$=""THEN7100
7110 IFFL=1ANDDE$="Y"THEN7180
7120 IFFL=1THENPRINT"[147]":NEXTI:RETURN
7125 IFF4=1THENPRINT"[144]";TAB(5);"MODIFY THIS RECORD [Y][146] OR [N][146]":GOTO7140
7130 PRINT"[144]";TAB(7);"CONTINUE PAGING [Y][146] OR [N][146]"
7140 GETDE$:IFDE$=""THEN7140
7145 IFDE$="/"THENRETURN
7150 IFDE$<>"Y"ANDDE$<>"N"THEN7140
7155 IFF4=1ANDDE$="N"THENPRINT"[147]":NEXT:RETURN
7160 IFDE$="N"THENRETURN
7165 IFF4=1ANDDE$="Y"THENF4=.:PRINT"[147]":RETURN
7170 PRINT"[147]":NEXT:K2=.:RETURN
7180 SU$(I)="DELETE":OPEN5,8,5,"@0:"+Z$+",S,W":PRINT"[147]"
7190 PRINTTAB(4);"ONE MOMENT DELETING RECORD #";I:FORI=1TOC
7200 IFSU$(I)="DELETE"THENC=C-1:NEXT
7210 PRINT#5,SU$(I)P$TA$(I)P$AN$(I)P$MN$(I)P$ID$(I)P$CM$(I)
7220 NEXT:I=C+1:SU$(I)="EOF":TA$(I)="TITLE":AN$(I)="AUTHOR":MN$(I)="MAG"
7230 ID$(I)="ISSUE":CM$(I)="COMMENT"
7240 PRINT#5,SU$(I)P$TA$(I)P$AN$(I)P$MN$(I)P$ID$(I)P$CM$(I):CLOSE5:FL=.:RETURN
7999 REM====END===
8000 PRINT"[147]":FORX=1TO12:PRINT:NEXT:PRINTTAB(9);"IT'S BEEN A PLEASURE"
8010 FORI=1TO15:POKE53281,I+1:FOR X=1TO200:NEXTX:NEXTI:POKE53281,6
8020 PRINT"[147]":PRINT"":END
8999 REM====== INITIALIZE FILE======
9000 PRINT"[147]":PRINTTAB(5);"THIS FILE '";Z$;"' HAS NOT BEEN INITIALIZED ":CLOSE5
9010 PRINT"OR YOU DO NOT HAVE THE CORRECT DISK IN  THE DRIVE !"
9020 PRINT:PRINTTAB(8);"[C][146]ONTINUE -/- [R][146]ETURN"
9030 GETDE$:IFDE$=""THEN9030
9035 IFDE$="/"THENK=1:RETURN
9040 IFDE$="R"THENK=1:RETURN
9050 IFDE$<>"R"ANDDE$<>"C"THEN9030
9060 OPEN5,8,5,"0:"+Z$+",S,W":PRINT"[147]":PRINTTAB(14);"INITIALIZING"
9070 PRINT:PRINTTAB(20-LEN(Z$)/2);Z$
9080 SU$(1)="EOF":TA$(1)="TITLE":AN$(1)="AUTHOR":MN$(1)="MAG":ID$(1)="ISSUE"
9090 CM$(1)="COMMENT"
9100 PRINT#5,SU$(1)P$TA$(1)P$AN$(1)P$MN$(1)P$ID$(1)P$CM$(1):CLOSE5:RETURN
9199 REM=====DELETE THE ENTIRE FILE =====
9200 PRINT"[147]":FORI=1TO10:PRINT:NEXT:PRINTTAB(11);"!! ARE YOU SURE !!"
9210 PRINT:PRINTTAB(15);"[Y][146] OR [N][146]"
9220 GETDE$:IFDE$=""THEN9220
9225 IFDE$="/"THENRETURN
9230 IFDE$<>"Y"ANDDE$<>"N"THEN9220
9240 IFDE$="N"THENRETURN
9250 PRINT:PRINTTAB(10);"ONE MOMENT DELETING":PRINT:PRINTTAB(20-LEN(Z$)/2);Z$
9260 OPEN5,8,5,"@0:"+Z$+",S,W":GOSUB9080:RETURN
9299 REM=====SORT PART2=====
9300 PRINT"[147]":PRINTTAB(9);"ONE MOMENT NOW SORTING":PRINT
9310 PRINTTAB(20-LEN(Z$)/2);Z$
9320 ONK1GOTO9350,9400,9450,9500,9550
9350 F=.:FORJ=1TOC-1
9360 IFSU$(J)<=SU$(J+1)THEN9380
9370 GOSUB10000
9380 NEXT:IFF=1THEN9350
9390 RETURN
9400 F=.:FORJ=1TOC-1
9410 IFTA$(J)<=TA$(J+1)THEN9430
9420 GOSUB10000
9430 NEXT:IFF=1THEN9400
9440 RETURN
9450 F=.:FORJ=1TOC-1
9460 IFAN$(J)<=AN$(J+1)THEN9480
9470 GOSUB10000
9480 NEXT:IFF=1THEN9450
9490 RETURN
9500 F=.:FORJ=1TOC-1
9510 IFMN$(J)<=MN$(J+1)THEN9540
9520 (null)SUSB10000
9530 NEXT:IFF=1THEN9500
9540 RETURN
9550 F=.:FORI=1TOC-1
9560 IFID$(J)<=ID$(J+1)THEN9580
9570 GOSUB10000
9580 NEXT:IFF=1THEN9550
9590 RETURN
10000 S1$=SU$(J):T1$=TA$(J):A1$=AN$(J):M1$=MN$(J):I1$=ID$(J):C1$=CM$(J)
10010 SU$(J)=SU$(J+1):SU$(J+1)=S1$:TA$(J)=TA$(J+1):TA$(J+1)=T1$:F=1
10020 AN$(J)=AN$(J+1):AN$(J+1)=A1$:MN$(J)=MN$(J+1):MN$(J+1)=M1$
10030 ID$(J)=ID$(J+1):ID$(J+1)=I1$:CM$(J)=CM$(J+1):CM$(J+1)=C1$:RETURN